
{***********************************************************}
{                                                           }
{      Informix esql "login.h"                              }
{                                                           }
{      Translated to Object Pascal by                       }
{      Copyright (c) 2001-2008 Luxena Software Company      }
{      http://www.luxena.com                                }
{      e-mail: support@luxena.com                           }
{                                                           }
{***********************************************************}

unit IfxLogin;

{$I lx.inc}

{$IFDEF VER140_OR_ABOVE}
  {$ALIGN 8}
{$ENDIF}

interface

type

  // This type is for saving LOGIN variables for communication between FE and BE

  LoginInfoStructTag = record
    // Env Info
    InfxServer: array[0..18] of Char;
    DbPath: array[0..128] of Char;
    DbDate: array[0..5] of Char;
    DbMoney: array[0..18] of Char;
    DbTime: array[0..80] of Char;
    DbTemp: array[0..80] of Char;
    DbLang: array[0..18] of Char;
    DbAnsiWarn: array[0..0] of Char;
    InformixDir: array[0..254] of Char;
    Client_Loc: PChar;
    DB_Loc: PChar;
    DbNls: array[0..2] of Char;
    CollChar: array[0..2] of Char;
    Lang: array[0..80] of Char;
    Lc_Collate: array[0..80] of Char;
    Lc_CType: array[0..80] of Char;
    Lc_Monetary: array[0..80] of Char;
    Lc_Numeric: array[0..80] of Char;
    Lc_Time: array[0..80] of Char;
    ConRetry: array[0..3] of Char;
    ConTime: array[0..3] of Char;
    DelimIdent: array[0..3] of Char;
    // Server Info
    Host: array[0..18] of Char;
    User: array[0..18] of Char;
    Pass: array[0..18] of Char;
    AskPassAtConnect: array[0..2] of Char;
    Service: array[0..18] of Char;
    Protocol: array[0..18] of Char;
    Options: array[0..19] of Char;
    // SqlHosts Info
    InformixSqlHosts: array[0..254] of Char;
    // more Env. Info
    FetBuffSize: array[0..5] of Char;
    CC8BitLevel: array[0..1] of Char;
    EsqlMF: array[0..1] of Char;
    // GL variables
    GlDate: array[0..128] of Char;
    GlDateTime: array[0..128] of Char;
    // Additional Environment variables
    DbAlsBc: array[0..1] of Char;
    DbApiCode: array[0..23] of Char;
    DbAsciiBc: array[0..1] of Char;
    DbCentury: array[0..1] of Char;
    DbCodeset: array[0..23] of Char;
    DbConnect: array[0..1] of Char;
    DbCsConv: array[0..8] of Char;
    DbCsOverride: array[0..1] of Char;
    DbCsWidth: array[0..11] of Char;
    DbFltMsk: array[0..3] of Char;
    DbMoneyScale: array[0..5] of Char;
    DbSS2: array[0..4] of Char;
    DbSS3: array[0..4] of Char;
    OptoFC: array[0..1] of Char;
    OptMSG: array[0..1] of Char;
    AutoFree: array[0..1] of Char;
    DefPrepare: array[0..1] of Char;
    NoDefDac: array[0..3] of Char;
    OptionsEx: array[0..255] of Char;
    DbDateEx: array[0..255] of Char;
  end;
  PLoginInfoStructTag = ^LoginInfoStructTag;
  LoginInfoStruct = LoginInfoStructTag;



  HostInfoStructTag = record
    InfxServer: array[0..18] of Char;
    Host: array[0..18] of Char;
    User: array[0..18] of Char;
    Pass: array[0..18] of Char;
    AskPassAtConnect: array[0..1] of Char;
    Service: array[0..18] of Char;
    Protocol: array[0..18] of Char;
    Options: array[0..19] of Char;
  end;
  HostInfoStruct = HostInfoStructTag;


  HostInfoStructExTag = record
    InfxServer: array[0..18] of Char;
    Host: array[0..18] of Char;
    User: array[0..18] of Char;
    Pass: array[0..18] of Char;
    AskPassAtConnect: array[0..1] of Char;
    Service: array[0..18] of Char;
    Protocol: array[0..18] of Char;
    Options: array[0..255] of Char;
  end;
  HostInfoStructEx = HostInfoStructExTag;


  HostInfoStructEx2Tag = record
    StructLen: Integer;
    InfxServer: array[0..128] of Char;
    Host: array[0..256] of Char;
    User: array[0..32] of Char;
    Pass: array[0..18] of Char;
    AskPassAtConnect: array[0..1] of Char;
    Service: array[0..18] of Char;
    Protocol: array[0..18] of Char;
    Options: array[0..255] of Char;
  end;
  HostInfoStructEx2 = HostInfoStructEx2Tag;


implementation

end.